home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
akcl
/
kcl.lha
/
lsp
/
describe.c
< prev
next >
Wrap
C/C++ Source or Header
|
1987-06-04
|
45KB
|
2,347 lines
/* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
#include <cmpinclude.h>
#include "describe.h"
init_describe(start,size,data)char *start;int size;object data;
{ register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
base[0]= VV[0];
(void)simple_symlispcall_no_event(VV[166],base+0,1);
VV[2]->s.s_stype=(short)stp_special;
if(VV[2]->s.s_dbind == OBJNULL){
VV[2]->s.s_dbind = VV[1];}
VV[3]->s.s_stype=(short)stp_special;
if(VV[3]->s.s_dbind == OBJNULL){
VV[3]->s.s_dbind = Cnil;}
VV[4]->s.s_stype=(short)stp_special;
if(VV[4]->s.s_dbind == OBJNULL){
VV[4]->s.s_dbind = Cnil;}
VV[5]->s.s_stype=(short)stp_special;
if(VV[5]->s.s_dbind == OBJNULL){
VV[5]->s.s_dbind = Cnil;}
VV[6]->s.s_stype=(short)stp_special;
if(VV[6]->s.s_dbind == OBJNULL){
VV[6]->s.s_dbind = Cnil;}
MF(VV[167],L2,start,size,data);
MF(VV[36],L3,start,size,data);
MM(VV[168],L4,start,size,data);
MM(VV[169],L5,start,size,data);
MF(VV[170],L6,start,size,data);
MF(VV[171],L7,start,size,data);
MF(VV[172],L8,start,size,data);
MF(VV[173],L9,start,size,data);
MF(VV[174],L10,start,size,data);
MF(VV[175],L11,start,size,data);
MF(VV[176],L12,start,size,data);
MF(VV[177],L13,start,size,data);
MF(VV[178],L14,start,size,data);
MF(VV[179],L15,start,size,data);
MF(VV[180],L16,start,size,data);
(void)putprop(VV[181],VV[109],siSfunction_documentation);
vs_top=sup;
MF(VV[181],L17,start,size,data);
(void)putprop(VV[182],VV[110],siSfunction_documentation);
vs_top=sup;
MF(VV[182],L18,start,size,data);
MF(VV[183],L19,start,size,data);
MF(VV[184],L22,start,size,data);
vs_top=vs_base=base;
}
/* function definition for INSPECT-READ-LINE */
static L2()
{ register object *base=vs_base;
register object *sup=base+VM3;
vs_reserve(VM3);
check_arg(0);
vs_top=sup;
TTL:;
base[1]= symbol_value(VV[7]);
vs_top=(vs_base=base+1)+1;
Lread_char();
vs_top=sup;
base[0]= vs_base[0];
T11:;
base[1]= base[0];
base[2]= VV[8];
vs_top=(vs_base=base+1)+2;
Lchar_eq();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T13;}
base[1]= base[0];
base[2]= VV[9];
vs_top=(vs_base=base+1)+2;
Lchar_eq();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T12;}
T13:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T12:;
base[1]= symbol_value(VV[7]);
vs_top=(vs_base=base+1)+1;
Lread_char();
vs_top=sup;
base[0]= vs_base[0];
goto T11;
}
/* function definition for READ-INSPECT-COMMAND */
static L3()
{ register object *base=vs_base;
register object *sup=base+VM4;
vs_reserve(VM4);
bds_check;
check_arg(3);
vs_top=sup;
TTL:;
if((symbol_value(VV[4]))!=Cnil){
goto T26;}
vs_base=vs_top;
L7();
vs_top=sup;
if((base[2])==Cnil){
goto T32;}
(void)(princ(base[0],Cnil));
base[3]= base[1];
vs_top=(vs_base=base+3)+1;
L16();
vs_top=sup;
goto T30;
T32:;
base[3]= Ct;
base[4]= base[0];
base[5]= base[1];
vs_top=(vs_base=base+3)+3;
Lformat();
vs_top=sup;
T30:;
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;
T26:;
T40:;
vs_base=vs_top;
L7();
vs_top=sup;
if((base[2])==Cnil){
goto T45;}
(void)(princ(base[0],Cnil));
vs_base=vs_top;
L6();
vs_top=sup;
(void)(prin1(base[1],Cnil));
goto T43;
T45:;
base[3]= Ct;
base[4]= base[0];
base[5]= base[1];
vs_top=(vs_base=base+3)+3;
Lformat();
vs_top=sup;
T43:;
base[3]= VV[10];
vs_top=(vs_base=base+3)+1;
Lwrite_char();
vs_top=sup;
vs_base=vs_top;
Lforce_output();
vs_top=sup;
base[5]= symbol_value(VV[7]);
vs_top=(vs_base=base+5)+1;
Lread_char();
vs_top=sup;
base[4]= vs_base[0];
T59:;
base[5]= base[4];
base[6]= VV[10];
vs_top=(vs_base=base+5)+2;
Lchar_neq();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T60;}
base[5]= VV[11];
vs_top=(vs_base=base+5)+1;
Lchar_neq();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T60;}
base[3]= base[4];
goto T55;
T60:;
base[5]= symbol_value(VV[7]);
vs_top=(vs_base=base+5)+1;
Lread_char();
vs_top=sup;
base[4]= vs_base[0];
goto T59;
T55:;
{object V1= base[3];
if(!eql(V1,VV[8])
&& !eql(V1,VV[9]))goto T73;
if((base[2])==Cnil){
goto T74;}
base[4]= base[1];
vs_top=(vs_base=base+4)+1;
L16();
vs_top=sup;
T74:;
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T73:;
if(!eql(V1,VV[12])
&& !eql(V1,VV[13]))goto T78;
vs_base=vs_top;
L2();
vs_top=sup;
if((base[2])==Cnil){
goto T80;}
base[4]= base[1];
vs_top=(vs_base=base+4)+1;
L16();
vs_top=sup;
T80:;
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T78:;
if(!eql(V1,VV[14])
&& !eql(V1,VV[15]))goto T84;
vs_base=vs_top;
L2();
vs_top=sup;
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T84:;
if(!eql(V1,VV[16])
&& !eql(V1,VV[17]))goto T86;
vs_base=vs_top;
L2();
vs_top=sup;
bds_bind(VV[18],Ct);
bds_bind(VV[19],Cnil);
bds_bind(VV[20],Cnil);
(void)(prin1(base[1],Cnil));
princ_char(10,Cnil);
bds_unwind1;
bds_unwind1;
bds_unwind1;
goto T41;
T86:;
if(!eql(V1,VV[21])
&& !eql(V1,VV[22]))goto T89;
vs_base=vs_top;
L2();
vs_top=sup;
{frame_ptr fr;
fr=frs_sch_catch(VV[23]);
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[23]);
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
unwind(fr,VV[23]);}
T89:;
if(!eql(V1,VV[24])
&& !eql(V1,VV[25]))goto T92;
base[4]= Ct;
base[8]= symbol_value(VV[7]);
base[7]= simple_symlispcall_no_event(VV[185],base+8,1);
vs_top=(vs_base=base+7)+1;
Leval();
vs_top=sup;
base[6]= vs_base[0];
vs_base=vs_top;
L2();
vs_top=sup;
base[5]= base[6];
vs_base=base+4;vs_top=base+6;
return;
T92:;
if(!eql(V1,VV[26])
&& !eql(V1,VV[27]))goto T99;
base[6]= symbol_value(VV[7]);
base[5]= simple_symlispcall_no_event(VV[185],base+6,1);
vs_top=(vs_base=base+5)+1;
Leval();
{object *V3=vs_top;object *V2=vs_base;
{register object *base0=base;
{register object *base=V3;
register object *sup=vs_base+VM5;
vs_reserve(VM5);
vs_top=sup;
vs_base=vs_top;
L2();
vs_top=sup;
}}
vs_base=V2;vs_top=V3;}
Llist();
vs_top=sup;
base[4]= vs_base[0];
base[5]= car(base[4]);
T108:;
if(!(endp(base[4]))){
goto T109;}
goto T41;
T109:;
base[6]= base[5];
base[7]= VV[28];
base[8]= symbol_value(VV[5]);
base[9]= VV[29];
base[10]= symbol_value(VV[6]);
vs_top=(vs_base=base+6)+5;
Lwrite();
vs_top=sup;
princ_char(10,Cnil);
base[4]= cdr(base[4]);
base[5]= car(base[4]);
goto T108;
T99:;
if(!eql(V1,VV[30])
&& !eql(V1,VV[31]))goto T125;
vs_base=vs_top;
L2();
vs_top=sup;
{frame_ptr fr;
fr=frs_sch_catch(VV[32]);
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[32]);
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
unwind(fr,VV[32]);}
T125:;
vs_base=vs_top;
L2();
vs_top=sup;
princ_char(10,Cnil);
base[4]= Ct;
base[5]= VV[33];
vs_top=(vs_base=base+4)+2;
Lformat();
vs_top=sup;}
T41:;
goto T40;
}
/* macro definition for INSPECT-RECURSIVELY */
static L4()
{ register object *base=vs_base;
register object *sup=base+VM6;
vs_reserve(VM6);
check_arg(2);
vs_top=sup;
{object V4=base[0]->c.c_cdr;
if(endp(V4))invalid_macro_call();
base[2]= (V4->c.c_car);
V4=V4->c.c_cdr;
if(endp(V4))invalid_macro_call();
base[3]= (V4->c.c_car);
V4=V4->c.c_cdr;
if(endp(V4)){
base[4]= Cnil;
} else {
base[4]= (V4->c.c_car);
V4=V4->c.c_cdr;}
if(!endp(V4))invalid_macro_call();}
if((base[4])==Cnil){
goto T135;}
base[5]= list(4,VV[36],base[2],base[3],Ct);
base[6]= list(3,VV[39],base[4],VV[40]);
base[7]= list(3,VV[37],VV[38],base[6]);
base[8]= list(4,VV[34],VV[35],base[5],base[7]);
vs_top=(vs_base=base+8)+1;
return;
T135:;
base[5]= list(4,VV[36],base[2],base[3],Ct);
base[6]= listA(3,VV[37],base[5],VV[41]);
vs_top=(vs_base=base+6)+1;
return;
}
/* macro definition for INSPECT-PRINT */
static L5()
{ register object *base=vs_base;
register object *sup=base+VM7;
vs_reserve(VM7);
check_arg(2);
vs_top=sup;
{object V5=base[0]->c.c_cdr;
if(endp(V5))invalid_macro_call();
base[2]= (V5->c.c_car);
V5=V5->c.c_cdr;
if(endp(V5))invalid_macro_call();
base[3]= (V5->c.c_car);
V5=V5->c.c_cdr;
if(endp(V5)){
base[4]= Cnil;
} else {
base[4]= (V5->c.c_car);
V5=V5->c.c_cdr;}
if(!endp(V5))invalid_macro_call();}
if((base[4])==Cnil){
goto T139;}
base[5]= list(4,VV[36],base[2],base[3],Cnil);
base[6]= list(3,VV[39],base[4],VV[40]);
base[7]= list(3,VV[37],VV[38],base[6]);
base[8]= list(4,VV[34],VV[42],base[5],base[7]);
vs_top=(vs_base=base+8)+1;
return;
T139:;
base[5]= list(4,VV[36],base[2],base[3],Cnil);
base[6]= listA(3,VV[37],base[5],VV[43]);
vs_top=(vs_base=base+6)+1;
return;
}
/* function definition for INSPECT-INDENT */
static L6()
{ register object *base=vs_base;
register object *sup=base+VM8;
vs_reserve(VM8);
check_arg(0);
vs_top=sup;
TTL:;
vs_base=vs_top;
Lfresh_line();
vs_top=sup;
base[0]= Ct;
base[1]= VV[44];
if(!(number_compare(symbol_value(VV[2]),VV[46])<0)){
goto T147;}
base[3]= symbol_value(VV[2]);
goto T145;
T147:;
base[3]= VV[46];
T145:;
base[2]= number_times(VV[45],base[3]);
vs_top=(vs_base=base+0)+3;
Lformat();
return;
}
/* function definition for INSPECT-INDENT-1 */
static L7()
{ register object *base=vs_base;
register object *sup=base+VM9;
vs_reserve(VM9);
check_arg(0);
vs_top=sup;
TTL:;
vs_base=vs_top;
Lfresh_line();
vs_top=sup;
base[0]= Ct;
base[1]= VV[47];
if(!(number_compare(symbol_value(VV[2]),VV[46])<0)){
goto T155;}
base[3]= symbol_value(VV[2]);
goto T153;
T155:;
base[3]= VV[46];
T153:;
base[4]= number_times(VV[45],base[3]);
base[2]= number_minus(base[4],VV[48]);
vs_top=(vs_base=base+0)+3;
Lformat();
return;
}
/* function definition for INSPECT-SYMBOL */
static L8()
{ register object *base=vs_base;
register object *sup=base+VM10;
vs_reserve(VM10);
check_arg(1);
vs_top=sup;
TTL:;
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
Lsymbol_package();
vs_top=sup;
base[1]= vs_base[0];
if((base[1])!=Cnil){
goto T161;}
base[2]= Ct;
base[3]= VV[49];
base[4]= base[0];
vs_top=(vs_base=base+2)+3;
Lformat();
vs_top=sup;
goto T157;
T161:;
base[3]= VV[50];
vs_top=(vs_base=base+3)+1;
Lfind_package();
vs_top=sup;
base[2]= vs_base[0];
if(!(base[1]==base[2])){
goto T167;}
base[2]= Ct;
base[3]= VV[51];
base[4]= base[0];
vs_top=(vs_base=base+2)+3;
Lformat();
vs_top=sup;
goto T157;
T167:;
base[2]= Ct;
base[3]= VV[52];
base[4]= base[0];
base[8]= base[0];
vs_top=(vs_base=base+8)+1;
Lsymbol_name();
vs_top=sup;
base[7]= vs_base[0];
base[8]= base[1];
vs_top=(vs_base=base+7)+2;
Lfind_symbol();
Llist();
vs_top=sup;
base[6]= vs_base[0];
base[7]= car(base[6]);
base[8]= cadr(base[6]);
base[5]= (base[8]==VV[53]?Ct:Cnil);
base[7]= base[1];
vs_top=(vs_base=base+7)+1;
Lpackage_name();
vs_top=sup;
base[6]= vs_base[0];
vs_top=(vs_base=base+2)+5;
Lformat();
vs_top=sup;
T157:;
base[1]= base[0];
vs_top=(vs_base=base+1)+1;
Lboundp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T187;}
if((symbol_value(VV[4]))==Cnil){
goto T192;}
base[2]= VV[54];
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Lsymbol_value();
vs_top=sup;
base[3]= vs_base[0];
base[4]= Ct;
vs_top=(vs_base=base+2)+3;
L3();
Llist();
vs_top=sup;
base[1]= vs_base[0];
base[2]= car(base[1]);
base[3]= cadr(base[1]);
if((base[2])==Cnil){
goto T187;}
base[4]= base[0];
base[5]= base[3];
vs_top=(vs_base=base+4)+2;
Lset();
vs_top=sup;
goto T187;
T192:;
base[2]= VV[55];
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Lsymbol_value();
vs_top=sup;
base[3]= vs_base[0];
base[4]= Cnil;
vs_top=(vs_base=base+2)+3;
L3();
Llist();
vs_top=sup;
base[1]= vs_base[0];
base[2]= car(base[1]);
base[3]= cadr(base[1]);
if((base[2])==Cnil){
goto T187;}
base[4]= base[0];
base[5]= base[3];
vs_top=(vs_base=base+4)+2;
Lset();
vs_top=sup;
T187:;
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
Lsymbol_plist();
vs_top=sup;
base[1]= vs_base[0];
T222:;
if(!(endp(base[1]))){
goto T223;}
goto T218;
T223:;
if(!(type_of(car(base[1]))==t_symbol)){
goto T228;}
base[3]= car(base[1]);
vs_top=(vs_base=base+3)+1;
Lsymbol_package();
vs_top=sup;
base[2]= vs_base[0];
base[4]= VV[56];
vs_top=(vs_base=base+4)+1;
Lfind_package();
vs_top=sup;
base[3]= vs_base[0];
if(base[2]==base[3]){
goto T227;}
base[3]= car(base[1]);
vs_top=(vs_base=base+3)+1;
Lsymbol_package();
vs_top=sup;
base[2]= vs_base[0];
base[4]= VV[57];
vs_top=(vs_base=base+4)+1;
Lfind_package();
vs_top=sup;
base[3]= vs_base[0];
if(base[2]==base[3]){
goto T227;}
T228:;
if((symbol_value(VV[4]))==Cnil){
goto T243;}
base[4]= Cnil;
base[5]= VV[58];
base[6]= car(base[1]);
vs_top=(vs_base=base+4)+3;
Lformat();
vs_top=sup;
base[3]= vs_base[0];
base[4]= cadr(base[1]);
base[5]= Ct;
vs_top=(vs_base=base+3)+3;
L3();
Llist();
vs_top=sup;
base[2]= vs_base[0];
base[3]= car(base[2]);
base[4]= cadr(base[2]);
if((base[3])==Cnil){
goto T227;}
base[5]= car(base[1]);
(void)(putprop(base[0],base[4],base[5]));
goto T227;
T243:;
base[4]= Cnil;
base[5]= VV[59];
base[6]= car(base[1]);
vs_top=(vs_base=base+4)+3;
Lformat();
vs_top=sup;
base[3]= vs_base[0];
base[4]= cadr(base[1]);
base[5]= Cnil;
vs_top=(vs_base=base+3)+3;
L3();
Llist();
vs_top=sup;
base[2]= vs_base[0];
base[3]= car(base[2]);
base[4]= cadr(base[2]);
if((base[3])==Cnil){
goto T227;}
base[5]= car(base[1]);
(void)(putprop(base[0],base[4],base[5]));
T227:;
base[1]= cddr(base[1]);
goto T222;
T218:;
base[1]= base[0];
base[2]= Ct;
vs_top=(vs_base=base+1)+2;
L19();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T275;}
base[1]= Ct;
base[2]= VV[60];
vs_top=(vs_base=base+1)+2;
Lformat();
return;
T275:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for INSPECT-PACKAGE */
static L9()
{ register object *base=vs_base;
register object *sup=base+VM11;
vs_reserve(VM11);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= Ct;
base[2]= VV[61];
base[3]= base[0];
vs_top=(vs_base=base+1)+3;
Lformat();
vs_top=sup;
base[1]= base[0];
vs_top=(vs_base=base+1)+1;
Lpackage_nicknames();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T285;}
base[1]= VV[62];
base[3]= base[0];
vs_top=(vs_base=base+3)+1;
Lpackage_nicknames();
vs_top=sup;
base[2]= vs_base[0];
base[3]= Cnil;
vs_top=(vs_base=base+1)+3;
L3();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T285;}
princ_str("Not updated.",Cnil);
princ_char(10,Cnil);
T285:;
base[1]= base[0];
vs_top=(vs_base=base+1)+1;
Lpackage_use_list();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T296;}
base[1]= VV[63];
base[3]= base[0];
vs_top=(vs_base=base+3)+1;
Lpackage_use_list();
vs_top=sup;
base[2]= vs_base[0];
base[3]= Cnil;
vs_top=(vs_base=base+1)+3;
L3();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T296;}
princ_str("Not updated.",Cnil);
princ_char(10,Cnil);
T296:;
base[1]= base[0];
vs_top=(vs_base=base+1)+1;
Lpackage_used_by_list();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T307;}
base[1]= VV[64];
base[3]= base[0];
vs_top=(vs_base=base+3)+1;
Lpackage_used_by_list();
vs_top=sup;
base[2]= vs_base[0];
base[3]= Cnil;
vs_top=(vs_base=base+1)+3;
L3();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T307;}
princ_str("Not updated.",Cnil);
princ_char(10,Cnil);
T307:;
base[1]= base[0];
if((simple_symlispcall_no_event(VV[186],base+1,1))==Cnil){
goto T319;}
base[1]= VV[65];
base[3]= base[0];
base[2]= simple_symlispcall_no_event(VV[186],base+3,1);
base[3]= Cnil;
vs_top=(vs_base=base+1)+3;
L3();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T323;}
princ_str("Not updated.",Cnil);
base[1]= terpri(Cnil);
vs_top=(vs_base=base+1)+1;
return;
T323:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T319:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for INSPECT-CHARACTER */
static L10()
{ register object *base=vs_base;
register object *sup=base+VM12;
vs_reserve(VM12);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= Ct;
base[3]= base[0];
vs_top=(vs_base=base+3)+1;
Lstandard_char_p();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T334;}
base[2]= VV[66];
goto T332;
T334:;
base[3]= base[0];
vs_top=(vs_base=base+3)+1;
Lstring_char_p();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T338;}
base[2]= VV[67];
goto T332;
T338:;
base[2]= VV[68];
T332:;
base[3]= base[0];
vs_top=(vs_base=base+1)+3;
Lformat();
vs_top=sup;
base[1]= VV[69];
base[3]= base[0];
vs_top=(vs_base=base+3)+1;
Lchar_code();
vs_top=sup;
base[2]= vs_base[0];
base[3]= Cnil;
vs_top=(vs_base=base+1)+3;
L3();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T342;}
princ_str("Not updated.",Cnil);
princ_char(10,Cnil);
T342:;
base[1]= VV[70];
base[3]= base[0];
vs_top=(vs_base=base+3)+1;
Lchar_bits();
vs_top=sup;
base[2]= vs_base[0];
base[3]= Cnil;
vs_top=(vs_base=base+1)+3;
L3();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T350;}
princ_str("Not updated.",Cnil);
princ_char(10,Cnil);
T350:;
base[1]= VV[71];
base[3]= base[0];
vs_top=(vs_base=base+3)+1;
Lchar_font();
vs_top=sup;
base[2]= vs_base[0];
base[3]= Cnil;
vs_top=(vs_base=base+1)+3;
L3();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T359;}
princ_str("Not updated.",Cnil);
base[1]= terpri(Cnil);
vs_top=(vs_base=base+1)+1;
return;
T359:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for INSPECT-NUMBER */
static L11()
{ register object *base=vs_base;
register object *sup=base+VM13;
vs_reserve(VM13);
check_arg(1);
vs_top=sup;
TTL:;
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
Ltype_of();
vs_top=sup;
base[1]= vs_base[0];
{object V6= base[1];
if((V6!= VV[187]))goto T368;
base[2]= Ct;
base[3]= VV[72];
base[4]= base[0];
vs_top=(vs_base=base+2)+3;
Lformat();
return;
T368:;
if((V6!= VV[188]))goto T372;
base[2]= Ct;
base[3]= VV[73];
base[4]= base[0];
vs_top=(vs_base=base+2)+3;
Lformat();
return;
T372:;
if((V6!= VV[189]))goto T376;
base[2]= Ct;
base[3]= VV[74];
base[4]= base[0];
vs_top=(vs_base=base+2)+3;
Lformat();
vs_top=sup;
base[2]= VV[75];
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Lnumerator();
vs_top=sup;
base[3]= vs_base[0];
base[4]= Ct;
vs_top=(vs_base=base+2)+3;
L3();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T381;}
princ_str("Not updated.",Cnil);
princ_char(10,Cnil);
T381:;
base[2]= VV[76];
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Ldenominator();
vs_top=sup;
base[3]= vs_base[0];
base[4]= Ct;
vs_top=(vs_base=base+2)+3;
L3();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T390;}
princ_str("Not updated.",Cnil);
base[2]= terpri(Cnil);
vs_top=(vs_base=base+2)+1;
return;
T390:;
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T376:;
if((V6!= VV[190]))goto T397;
base[2]= Ct;
base[3]= VV[77];
base[4]= base[0];
vs_top=(vs_base=base+2)+3;
Lformat();
vs_top=sup;
base[2]= VV[78];
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Lrealpart();
vs_top=sup;
base[3]= vs_base[0];
base[4]= Ct;
vs_top=(vs_base=base+2)+3;
L3();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T402;}
princ_str("Not updated.",Cnil);
princ_char(10,Cnil);
T402:;
base[2]= VV[79];
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Limagpart();
vs_top=sup;
base[3]= vs_base[0];
base[4]= Ct;
vs_top=(vs_base=base+2)+3;
L3();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T411;}
princ_str("Not updated.",Cnil);
base[2]= terpri(Cnil);
vs_top=(vs_base=base+2)+1;
return;
T411:;
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T397:;
if((V6!= VV[191])
&& (V6!= VV[192]))goto T418;
base[2]= Ct;
base[3]= VV[80];
base[4]= base[0];
vs_top=(vs_base=base+2)+3;
Lformat();
vs_top=sup;
base[3]= base[0];
vs_top=(vs_base=base+3)+1;
Linteger_decode_float();
Llist();
vs_top=sup;
base[2]= vs_base[0];
base[3]= car(base[2]);
base[4]= cadr(base[2]);
base[5]= caddr(base[2]);
base[6]= VV[81];
base[7]= base[4];
base[8]= Cnil;
vs_top=(vs_base=base+6)+3;
L3();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T429;}
princ_str("Not updated.",Cnil);
princ_char(10,Cnil);
T429:;
base[6]= VV[82];
base[7]= base[3];
base[8]= Cnil;
vs_top=(vs_base=base+6)+3;
L3();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T437;}
princ_str("Not updated.",Cnil);
base[6]= terpri(Cnil);
vs_top=(vs_base=base+6)+1;
return;
T437:;
base[6]= Cnil;
vs_top=(vs_base=base+6)+1;
return;
T418:;
if((V6!= VV[193])
&& (V6!= VV[194]))goto T443;
base[2]= Ct;
base[3]= VV[83];
base[4]= base[0];
vs_top=(vs_base=base+2)+3;
Lformat();
vs_top=sup;
base[3]= base[0];
vs_top=(vs_base=base+3)+1;
Linteger_decode_float();
Llist();
vs_top=sup;
base[2]= vs_base[0];
base[3]= car(base[2]);
base[4]= cadr(base[2]);
base[5]= caddr(base[2]);
base[6]= VV[84];
base[7]= base[4];
base[8]= Cnil;
vs_top=(vs_base=base+6)+3;
L3();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T454;}
princ_str("Not updated.",Cnil);
princ_char(10,Cnil);
T454:;
base[6]= VV[85];
base[7]= base[3];
base[8]= Cnil;
vs_top=(vs_base=base+6)+3;
L3();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T462;}
princ_str("Not updated.",Cnil);
base[6]= terpri(Cnil);
vs_top=(vs_base=base+6)+1;
return;
T462:;
base[6]= Cnil;
vs_top=(vs_base=base+6)+1;
return;
T443:;
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;}
}
/* function definition for INSPECT-CONS */
static L12()
{ register object *base=vs_base;
register object *sup=base+VM14;
vs_reserve(VM14);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= Ct;
{object V7= car(base[0]);
if((V7!= VV[195])
&& (V7!= VV[196])
&& (V7!= VV[197])
&& (V7!= VV[198]))goto T471;
base[2]= VV[86];
goto T470;
T471:;
if((V7!= VV[199]))goto T472;
base[2]= VV[87];
goto T470;
T472:;
base[2]= VV[88];}
T470:;
base[3]= base[0];
vs_top=(vs_base=base+1)+3;
Lformat();
vs_top=sup;
if((symbol_value(VV[4]))==Cnil){
goto T475;}
base[1]= VV[1];
base[2]= base[0];
T478:;
if(!(type_of(base[2])!=t_cons)){
goto T479;}
base[5]= Cnil;
base[6]= VV[89];
base[7]= base[1];
vs_top=(vs_base=base+5)+3;
Lformat();
vs_top=sup;
base[4]= vs_base[0];
base[5]= base[2];
base[6]= Ct;
vs_top=(vs_base=base+4)+3;
L3();
Llist();
vs_top=sup;
base[3]= vs_base[0];
base[4]= car(base[3]);
base[5]= cadr(base[3]);
if((base[4])==Cnil){
goto T493;}
base[7]= one_minus(base[1]);
base[6]= nthcdr(fixint(base[7]),base[0]);
if(type_of(base[6])!=t_cons)FEwrong_type_argument(Scons,base[6]);
(base[6])->c.c_cdr = base[5];
base[7]= base[5];
vs_top=(vs_base=base+7)+1;
return;
T493:;
base[6]= Cnil;
vs_top=(vs_base=base+6)+1;
return;
T479:;
base[5]= Cnil;
base[6]= VV[90];
base[7]= base[1];
vs_top=(vs_base=base+5)+3;
Lformat();
vs_top=sup;
base[4]= vs_base[0];
base[5]= car(base[2]);
base[6]= Ct;
vs_top=(vs_base=base+4)+3;
L3();
Llist();
vs_top=sup;
base[3]= vs_base[0];
base[4]= car(base[3]);
base[5]= cadr(base[3]);
if((base[4])==Cnil){
goto T498;}
if(type_of(nthcdr(fixint(base[1]),base[0]))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint(base[1]),base[0]));
(nthcdr(fixint(base[1]),base[0]))->c.c_car = base[5];
T498:;
base[1]= one_plus(base[1]);
base[2]= cdr(base[2]);
goto T478;
T475:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for INSPECT-STRING */
static L13()
{ register object *base=vs_base;
register object *sup=base+VM15;
vs_reserve(VM15);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= Ct;
base[3]= base[0];
vs_top=(vs_base=base+3)+1;
Lsimple_string_p();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T520;}
base[2]= VV[91];
goto T518;
T520:;
base[2]= VV[92];
T518:;
base[3]= base[0];
vs_top=(vs_base=base+1)+3;
Lformat();
vs_top=sup;
base[1]= VV[93];
base[3]= base[0];
base[4]= VV[1];
vs_top=(vs_base=base+3)+2;
Larray_dimension();
vs_top=sup;
base[2]= vs_base[0];
base[3]= Cnil;
vs_top=(vs_base=base+1)+3;
L3();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T524;}
princ_str("Not updated.",Cnil);
princ_char(10,Cnil);
T524:;
base[1]= base[0];
if((simple_symlispcall_no_event(VV[200],base+1,1))==Cnil){
goto T533;}
base[2]= VV[94];
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Lfill_pointer();
vs_top=sup;
base[3]= vs_base[0];
base[4]= Cnil;
vs_top=(vs_base=base+2)+3;
L3();
Llist();
vs_top=sup;
base[1]= vs_base[0];
base[2]= car(base[1]);
base[3]= cadr(base[1]);
if((base[2])==Cnil){
goto T533;}
base[4]= base[0];
base[5]= base[3];
vs_top=(vs_base=base+4)+2;
siLfill_pointer_set();
vs_top=sup;
T533:;
if((symbol_value(VV[4]))==Cnil){
goto T550;}
base[2]= base[0];
base[3]= VV[1];
vs_top=(vs_base=base+2)+2;
Larray_dimension();
vs_top=sup;
base[1]= vs_base[0];
base[2]= VV[1];
T556:;
if(!(number_compare(base[2],base[1])>=0)){
goto T557;}
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;
T557:;
base[5]= Cnil;
base[6]= VV[95];
base[7]= base[2];
vs_top=(vs_base=base+5)+3;
Lformat();
vs_top=sup;
base[4]= vs_base[0];
base[5]= elt(base[0],fixint(base[2]));
base[6]= Ct;
vs_top=(vs_base=base+4)+3;
L3();
Llist();
vs_top=sup;
base[3]= vs_base[0];
base[4]= car(base[3]);
base[5]= cadr(base[3]);
if((base[4])==Cnil){
goto T561;}
(void)(elt_set(base[0],fixint(base[2]),base[5]));
T561:;
base[2]= one_plus(base[2]);
goto T556;
T550:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for INSPECT-VECTOR */
static L14()
{ register object *base=vs_base;
register object *sup=base+VM16;
vs_reserve(VM16);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= Ct;
base[3]= base[0];
vs_top=(vs_base=base+3)+1;
Lsimple_vector_p();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T581;}
base[2]= VV[96];
goto T579;
T581:;
base[2]= VV[97];
T579:;
base[3]= base[0];
vs_top=(vs_base=base+1)+3;
Lformat();
vs_top=sup;
base[1]= VV[98];
base[3]= base[0];
base[4]= VV[1];
vs_top=(vs_base=base+3)+2;
Larray_dimension();
vs_top=sup;
base[2]= vs_base[0];
base[3]= Cnil;
vs_top=(vs_base=base+1)+3;
L3();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T585;}
princ_str("Not updated.",Cnil);
princ_char(10,Cnil);
T585:;
base[1]= base[0];
if((simple_symlispcall_no_event(VV[200],base+1,1))==Cnil){
goto T594;}
base[2]= VV[99];
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Lfill_pointer();
vs_top=sup;
base[3]= vs_base[0];
base[4]= Cnil;
vs_top=(vs_base=base+2)+3;
L3();
Llist();
vs_top=sup;
base[1]= vs_base[0];
base[2]= car(base[1]);
base[3]= cadr(base[1]);
if((base[2])==Cnil){
goto T594;}
base[4]= base[0];
base[5]= base[3];
vs_top=(vs_base=base+4)+2;
siLfill_pointer_set();
vs_top=sup;
T594:;
if((symbol_value(VV[4]))==Cnil){
goto T611;}
base[2]= base[0];
base[3]= VV[1];
vs_top=(vs_base=base+2)+2;
Larray_dimension();
vs_top=sup;
base[1]= vs_base[0];
base[2]= VV[1];
T617:;
if(!(number_compare(base[2],base[1])>=0)){
goto T618;}
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;
T618:;
base[5]= Cnil;
base[6]= VV[100];
base[7]= base[2];
vs_top=(vs_base=base+5)+3;
Lformat();
vs_top=sup;
base[4]= vs_base[0];
base[5]= aref1(base[0],fixint(base[2]));
base[6]= Ct;
vs_top=(vs_base=base+4)+3;
L3();
Llist();
vs_top=sup;
base[3]= vs_base[0];
base[4]= car(base[3]);
base[5]= cadr(base[3]);
if((base[4])==Cnil){
goto T622;}
(void)(aset1(base[0],fixint(base[2]),base[5]));
T622:;
base[2]= one_plus(base[2]);
goto T617;
T611:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for INSPECT-ARRAY */
static L15()
{ register object *base=vs_base;
register object *sup=base+VM17;
vs_reserve(VM17);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= Ct;
base[3]= base[0];
vs_top=(vs_base=base+3)+1;
Ladjustable_array_p();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T642;}
base[2]= VV[101];
goto T640;
T642:;
base[2]= VV[102];
T640:;
base[3]= base[0];
vs_top=(vs_base=base+1)+3;
Lformat();
vs_top=sup;
base[1]= VV[103];
base[3]= base[0];
vs_top=(vs_base=base+3)+1;
Larray_rank();
vs_top=sup;
base[2]= vs_base[0];
base[3]= Cnil;
vs_top=(vs_base=base+1)+3;
L3();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T646;}
princ_str("Not updated.",Cnil);
princ_char(10,Cnil);
T646:;
base[1]= VV[104];
base[3]= base[0];
base[2]= simple_symlispcall_no_event(VV[201],base+3,1);
base[3]= Cnil;
vs_top=(vs_base=base+1)+3;
L3();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T654;}
princ_str("Not updated.",Cnil);
princ_char(10,Cnil);
T654:;
base[1]= VV[105];
base[3]= base[0];
base[2]= simple_symlispcall_no_event(VV[202],base+3,1);
base[3]= Cnil;
vs_top=(vs_base=base+1)+3;
L3();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T663;}
princ_str("Not updated.",Cnil);
base[1]= terpri(Cnil);
vs_top=(vs_base=base+1)+1;
return;
T663:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for INSPECT-OBJECT */
static L16()
{ register object *base=vs_base;
register object *sup=base+VM18;
vs_reserve(VM18);
bds_check;
check_arg(1);
vs_top=sup;
TTL:;
bds_bind(VV[2],symbol_value(VV[2]));
vs_base=vs_top;
L6();
vs_top=sup;
if((symbol_value(VV[4]))!=Cnil){
goto T671;}
if(number_compare((VV[2]->s.s_dbind),VV[106])>0){
goto T672;}
{object x= base[0],V8= symbol_value(VV[3]);
while(!endp(V8))
if(eql(x,V8->c.c_car)){
goto T677;
}else V8=V8->c.c_cdr;
goto T671;}
T677:;
T672:;
(void)(prin1(base[0],Cnil));
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
bds_unwind1;
return;
T671:;
(VV[2]->s.s_dbind)= number_plus((VV[2]->s.s_dbind),VV[107]);
setq(VV[3],make_cons(base[0],symbol_value(VV[3])));
frs_push(FRS_CATCH,VV[23]);
if(nlj_active)
{nlj_active=FALSE;frs_pop();
bds_unwind1;
return;}
else{
if(!(type_of(base[0])==t_symbol)){
goto T685;}
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
L8();
frs_pop();
bds_unwind1;
return;
T685:;
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
Lpackagep();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T689;}
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
L9();
frs_pop();
bds_unwind1;
return;
T689:;
if(!(type_of(base[0])==t_character)){
goto T694;}
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
L10();
frs_pop();
bds_unwind1;
return;
T694:;
if(!(type_of(base[0])==t_fixnum||
type_of(base[0])==t_bignum||
type_of(base[0])==t_ratio||
type_of(base[0])==t_shortfloat||
type_of(base[0])==t_longfloat||
type_of(base[0])==t_complex)){
goto T698;}
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
L11();
frs_pop();
bds_unwind1;
return;
T698:;
if(!(type_of(base[0])==t_cons)){
goto T702;}
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
L12();
frs_pop();
bds_unwind1;
return;
T702:;
if(!(type_of(base[0])==t_string)){
goto T706;}
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
L13();
frs_pop();
bds_unwind1;
return;
T706:;
if(!(type_of(base[0])==t_vector||
type_of(base[0])==t_string||
type_of(base[0])==t_bitvector)){
goto T710;}
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
L14();
frs_pop();
bds_unwind1;
return;
T710:;
if(!(type_of(base[0])==t_array||
type_of(base[0])==t_vector||
type_of(base[0])==t_string||
type_of(base[0])==t_bitvector)){
goto T714;}
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
L15();
frs_pop();
bds_unwind1;
return;
T714:;
base[2]= Ct;
base[3]= VV[108];
base[4]= base[0];
base[6]= base[0];
vs_top=(vs_base=base+6)+1;
Ltype_of();
vs_top=sup;
base[5]= vs_base[0];
vs_top=(vs_base=base+2)+4;
Lformat();
frs_pop();
bds_unwind1;
return;}
}
/* function definition for DESCRIBE */
static L17()
{ register object *base=vs_base;
register object *sup=base+VM19;
vs_reserve(VM19);
bds_check;
check_arg(1);
vs_top=sup;
TTL:;
bds_bind(VV[4],Cnil);
bds_bind(VV[2],VV[1]);
bds_bind(VV[3],Cnil);
bds_bind(VV[19],Cnil);
bds_bind(VV[20],Cnil);
princ_char(10,Cnil);
frs_push(FRS_CATCH,VV[32]);
if(nlj_active)
{nlj_active=FALSE;frs_pop();
vs_top=sup;
goto T723;}
else{
base[6]= base[0];
vs_top=(vs_base=base+6)+1;
L16();
vs_top=sup;
frs_pop();}
T723:;
princ_char(10,Cnil);
vs_base=base+6;vs_top=base+6;
vs_base[0]=Cnil;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
return;
}
/* function definition for INSPECT */
static L18()
{ register object *base=vs_base;
register object *sup=base+VM20;
vs_reserve(VM20);
bds_check;
check_arg(1);
vs_top=sup;
TTL:;
bds_bind(VV[4],Ct);
bds_bind(VV[2],VV[1]);
bds_bind(VV[3],Cnil);
bds_bind(VV[5],symbol_value(VV[19]));
bds_bind(VV[6],symbol_value(VV[20]));
bds_bind(VV[19],VV[48]);
bds_bind(VV[20],VV[48]);
vs_base=vs_top;
Lread_line();
vs_top=sup;
princ_str("Type ? and a newline for help.",Cnil);
princ_char(10,Cnil);
frs_push(FRS_CATCH,VV[32]);
if(nlj_active)
{nlj_active=FALSE;frs_pop();
vs_top=sup;
goto T730;}
else{
base[8]= base[0];
vs_top=(vs_base=base+8)+1;
L16();
vs_top=sup;
frs_pop();}
T730:;
princ_char(10,Cnil);
vs_base=base+8;vs_top=base+8;
vs_base[0]=Cnil;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
return;
}
/* function definition for PRINT-DOC */
static L19()
{ register object *base=vs_base;
register object *sup=base+VM21;
vs_reserve(VM21);
bds_check;
if(vs_top-vs_base<1) too_few_arguments();
if(vs_top-vs_base>2) too_many_arguments();
vs_base=vs_base+1;
if(vs_base>=vs_top){vs_top=sup;goto T734;}
vs_top=sup;
goto T735;
T734:;
base[1]= Cnil;
T735:;
base[2]= Cnil;
base[3]= Cnil;
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Lspecial_form_p();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T740;}
base[6]= base[0];
base[7]= VV[111];
base[5]= simple_symlispcall_no_event(VV[203],base+6,2);
if(base[5]==Cnil)goto T744;
base[4]= base[5];
goto T743;
T744:;
base[4]= VV[112];
T743:;
base[6]= base[0];
vs_top=(vs_base=base+6)+1;
Lmacro_function();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T750;}
base[5]= VV[113];
goto T748;
T750:;
base[5]= VV[114];
T748:;
vs_top=(vs_base=base+4)+2;
L20(base);
vs_top=sup;
goto T738;
T740:;
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Lmacro_function();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T754;}
base[6]= base[0];
base[7]= VV[111];
base[5]= simple_symlispcall_no_event(VV[203],base+6,2);
if(base[5]==Cnil)goto T758;
base[4]= base[5];
goto T757;
T758:;
base[4]= VV[115];
T757:;
base[5]= VV[116];
vs_top=(vs_base=base+4)+2;
L20(base);
vs_top=sup;
goto T738;
T754:;
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Lfboundp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T764;}
base[6]= base[0];
base[7]= VV[111];
base[5]= simple_symlispcall_no_event(VV[203],base+6,2);
if(base[5]==Cnil)goto T768;
base[4]= base[5];
goto T767;
T768:;
base[7]= base[0];
vs_top=(vs_base=base+7)+1;
Lsymbol_function();
vs_top=sup;
base[3]= vs_base[0];
base[6]= base[3];
if(!(type_of(base[6])==t_cons)){
goto T773;}
{object V9= car(base[3]);
if((V9!= VV[195]))goto T778;
base[6]= Cnil;
base[7]= VV[117];
base[8]= cadr(base[3]);
vs_top=(vs_base=base+6)+3;
Lformat();
vs_top=sup;
base[4]= vs_base[0];
goto T767;
T778:;
if((V9!= VV[196]))goto T782;
base[6]= Cnil;
base[7]= VV[118];
base[8]= caddr(base[3]);
vs_top=(vs_base=base+6)+3;
Lformat();
vs_top=sup;
base[4]= vs_base[0];
goto T767;
T782:;
if((V9!= VV[197]))goto T786;
base[6]= Cnil;
base[7]= VV[119];
base[8]= car(cddddr(base[3]));
vs_top=(vs_base=base+6)+3;
Lformat();
vs_top=sup;
base[4]= vs_base[0];
goto T767;
T786:;
if((V9!= VV[198]))goto T790;
base[6]= Cnil;
base[7]= VV[120];
base[8]= cadr(cddddr(base[3]));
vs_top=(vs_base=base+6)+3;
Lformat();
vs_top=sup;
base[4]= vs_base[0];
goto T767;
T790:;
base[4]= VV[121];
goto T767;}
T773:;
base[4]= VV[122];
T767:;
base[5]= VV[123];
vs_top=(vs_base=base+4)+2;
L20(base);
vs_top=sup;
goto T738;
T764:;
base[4]= base[0];
base[5]= VV[111];
base[3]= simple_symlispcall_no_event(VV[203],base+4,2);
if((base[3])==Cnil){
goto T738;}
base[4]= base[3];
base[5]= VV[124];
vs_top=(vs_base=base+4)+2;
L20(base);
vs_top=sup;
T738:;
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Lconstantp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T804;}
base[5]= base[0];
vs_top=(vs_base=base+5)+1;
Lsymbol_package();
vs_top=sup;
base[4]= vs_base[0];
base[6]= VV[125];
vs_top=(vs_base=base+6)+1;
Lfind_package();
vs_top=sup;
base[5]= vs_base[0];
if(!(base[4]==base[5])){
goto T807;}
base[4]= base[0];
base[5]= VV[126];
if((simple_symlispcall_no_event(VV[203],base+4,2))==Cnil){
goto T802;}
T807:;
base[6]= base[0];
base[7]= VV[126];
base[5]= simple_symlispcall_no_event(VV[203],base+6,2);
if(base[5]==Cnil)goto T818;
base[4]= base[5];
goto T817;
T818:;
base[4]= VV[127];
T817:;
base[5]= VV[128];
vs_top=(vs_base=base+4)+2;
L20(base);
vs_top=sup;
goto T802;
T804:;
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
siLspecialp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T824;}
base[6]= base[0];
base[7]= VV[126];
base[5]= simple_symlispcall_no_event(VV[203],base+6,2);
if(base[5]==Cnil)goto T828;
base[4]= base[5];
goto T827;
T828:;
base[4]= VV[129];
T827:;
base[5]= VV[130];
vs_top=(vs_base=base+4)+2;
L20(base);
vs_top=sup;
goto T802;
T824:;
base[4]= base[0];
base[5]= VV[126];
base[3]= simple_symlispcall_no_event(VV[203],base+4,2);
if((base[3])!=Cnil){
goto T833;}
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Lboundp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T802;}
T833:;
if(base[3]!=Cnil){
base[4]= base[3];
goto T841;}
base[4]= VV[131];
T841:;
base[5]= VV[132];
vs_top=(vs_base=base+4)+2;
L20(base);
vs_top=sup;
T802:;
base[4]= base[0];
base[5]= VV[133];
base[3]= simple_symlispcall_no_event(VV[203],base+4,2);
if((base[3])==Cnil){
goto T845;}
base[4]= base[3];
base[5]= VV[134];
vs_top=(vs_base=base+4)+2;
L20(base);
vs_top=sup;
goto T843;
T845:;
base[3]= get(base[0],VV[135],Cnil);
if((base[3])==Cnil){
goto T843;}
vs_base=vs_top;
L21(base);
vs_top=sup;
base[4]= vs_base[0];
bds_bind(VV[136],base[4]);
base[6]= Cnil;
base[7]= VV[137];
base[8]= base[3];
vs_top=(vs_base=base+6)+3;
Lformat();
vs_top=sup;
base[5]= vs_base[0];
base[6]= VV[138];
vs_top=(vs_base=base+5)+2;
L20(base);
vs_top=sup;
bds_unwind1;
T843:;
base[4]= base[0];
base[5]= VV[139];
base[3]= simple_symlispcall_no_event(VV[203],base+4,2);
if((base[3])==Cnil){
goto T863;}
base[4]= base[3];
base[5]= VV[140];
vs_top=(vs_base=base+4)+2;
L20(base);
vs_top=sup;
goto T861;
T863:;
base[3]= get(base[0],VV[141],Cnil);
if((base[3])==Cnil){
goto T861;}
base[5]= Cnil;
base[6]= VV[142];
base[7]= base[3];
vs_top=(vs_base=base+5)+3;
Lformat();
vs_top=sup;
base[4]= vs_base[0];
base[5]= VV[143];
vs_top=(vs_base=base+4)+2;
L20(base);
vs_top=sup;
T861:;
base[4]= base[0];
base[5]= VV[39];
base[3]= simple_symlispcall_no_event(VV[203],base+4,2);
if((base[3])==Cnil){
goto T879;}
base[4]= base[3];
base[5]= VV[144];
vs_top=(vs_base=base+4)+2;
L20(base);
vs_top=sup;
goto T737;
T879:;
base[3]= get(base[0],VV[145],Cnil);
if((base[3])==Cnil){
goto T887;}
vs_base=vs_top;
L21(base);
vs_top=sup;
base[4]= vs_base[0];
bds_bind(VV[136],base[4]);
base[6]= Cnil;
base[7]= VV[146];
base[9]= get(base[0],VV[145],Cnil);
base[8]= list(3,VV[147],base[0],base[9]);
vs_top=(vs_base=base+6)+3;
Lformat();
vs_top=sup;
base[5]= vs_base[0];
base[6]= VV[148];
vs_top=(vs_base=base+5)+2;
L20(base);
vs_top=sup;
bds_unwind1;
goto T737;
T887:;
base[3]= get(base[0],VV[149],Cnil);
if((base[3])==Cnil){
goto T898;}
vs_base=vs_top;
L21(base);
vs_top=sup;
base[4]= vs_base[0];
bds_bind(VV[136],base[4]);
base[6]= Cnil;
base[7]= VV[150];
base[9]= get(base[0],VV[149],Cnil);
base[8]= listA(3,VV[147],base[0],base[9]);
vs_top=(vs_base=base+6)+3;
Lformat();
vs_top=sup;
base[5]= vs_base[0];
base[6]= VV[151];
vs_top=(vs_base=base+5)+2;
L20(base);
vs_top=sup;
bds_unwind1;
goto T737;
T898:;
base[3]= get(base[0],VV[152],Cnil);
if((base[3])==Cnil){
goto T737;}
vs_base=vs_top;
L21(base);
vs_top=sup;
base[4]= vs_base[0];
bds_bind(VV[136],base[4]);
base[6]= Cnil;
base[7]= VV[153];
if(!(type_of(base[3])==t_cons)){
goto T917;}
{object V10= car(base[3]);
if((V10!= VV[195]))goto T919;
base[8]= make_cons(VV[154],cdr(base[3]));
goto T915;
T919:;
if((V10!= VV[196]))goto T920;
base[8]= make_cons(VV[154],cddr(base[3]));
goto T915;
T920:;
if((V10!= VV[197]))goto T921;
base[8]= make_cons(VV[154],cddddr(base[3]));
goto T915;
T921:;
if((V10!= VV[198]))goto T922;
base[8]= make_cons(VV[154],cdr(cddddr(base[3])));
goto T915;
T922:;
base[8]= Cnil;
goto T915;}
T917:;
base[8]= Cnil;
T915:;
vs_top=(vs_base=base+6)+3;
Lformat();
vs_top=sup;
base[5]= vs_base[0];
base[6]= VV[155];
vs_top=(vs_base=base+5)+2;
L20(base);
vs_top=sup;
bds_unwind1;
T737:;
if((base[1])==Cnil){
goto T925;}
vs_top=(vs_base=base+2)+1;
return;
T925:;
if((base[2])==Cnil){
goto T929;}
base[4]= Ct;
base[5]= VV[159];
vs_top=(vs_base=base+4)+2;
Lformat();
vs_top=sup;
goto T927;
T929:;
base[4]= Ct;
base[5]= VV[160];
base[6]= base[0];
vs_top=(vs_base=base+4)+3;
Lformat();
vs_top=sup;
T927:;
vs_base=base+4;vs_top=base+4;
vs_base[0]=Cnil;
return;
}
/* function definition for APROPOS-DOC */
static L22()
{ register object *base=vs_base;
register object *sup=base+VM22;
vs_reserve(VM22);
if(vs_top-vs_base<1) too_few_arguments();
if(vs_top-vs_base>2) too_many_arguments();
vs_base=vs_base+1;
if(vs_base>=vs_top){vs_top=sup;goto T936;}
vs_top=sup;
goto T937;
T936:;
base[1]= VV[161];
T937:;
base[2]= Cnil;
base[0]= coerce_to_string(base[0]);
if((base[1])==Cnil){
goto T943;}
base[7]= base[1];
vs_top=(vs_base=base+7)+1;
Lpackagep();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T947;}
base[3]= base[1];
goto T945;
T947:;
base[7]= coerce_to_string(base[1]);
vs_top=(vs_base=base+7)+1;
Lfind_package();
vs_top=sup;
base[3]= vs_base[0];
T945:;
base[4]= Cnil;
base[5]= Cnil;
base[6]= VV[1];
T952:;
if(!(number_compare(base[6],VV[162])>=0)){
goto T953;}
base[4]= Cnil;
goto T941;
T953:;
if(!(number_compare(base[6],VV[163])<0)){
goto T964;}
base[7]= base[3];
base[8]= base[6];
vs_top=(vs_base=base+7)+2;
siLpackage_internal();
vs_top=sup;
base[5]= vs_base[0];
goto T962;
T964:;
base[7]= base[3];
base[8]= number_minus(base[6],VV[163]);
vs_top=(vs_base=base+7)+2;
siLpackage_external();
vs_top=sup;
base[5]= vs_base[0];
T962:;
T960:;
if((base[5])!=Cnil){
goto T970;}
goto T961;
T970:;
base[4]= car(base[5]);
base[7]= base[0];
base[8]= coerce_to_string(base[4]);
if((simple_symlispcall_no_event(VV[204],base+7,2))==Cnil){
goto T975;}
base[8]= base[4];
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
L19();
vs_top=sup;
base[7]= vs_base[0];
if(base[7]==Cnil)goto T981;
base[2]= base[7];
goto T980;
T981:;
T980:;
T975:;
base[5]= cdr(base[5]);
goto T960;
T961:;
base[6]= one_plus(base[6]);
goto T952;
T943:;
vs_base=vs_top;
Llist_all_packages();
vs_top=sup;
base[3]= vs_base[0];
base[4]= Cnil;
base[5]= VV[1];
base[6]= Cnil;
T992:;
if((base[3])!=Cnil){
goto T993;}
base[4]= Cnil;
goto T941;
T993:;
T1000:;
if(!(number_compare(base[5],VV[162])>=0)){
goto T1004;}
goto T1003;
T1004:;
if(!(number_compare(base[5],VV[163])<0)){
goto T1009;}
base[7]= car(base[3]);
base[8]= base[5];
vs_top=(vs_base=base+7)+2;
siLpackage_internal();
vs_top=sup;
base[6]= vs_base[0];
goto T1007;
T1009:;
base[7]= car(base[3]);
base[8]= number_minus(base[5],VV[163]);
vs_top=(vs_base=base+7)+2;
siLpackage_external();
vs_top=sup;
base[6]= vs_base[0];
T1007:;
T1001:;
if((base[6])!=Cnil){
goto T1015;}
goto T1002;
T1015:;
base[4]= car(base[6]);
base[7]= base[0];
base[8]= coerce_to_string(base[4]);
if((simple_symlispcall_no_event(VV[204],base+7,2))==Cnil){
goto T1020;}
base[8]= base[4];
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
L19();
vs_top=sup;
base[7]= vs_base[0];
if(base[7]==Cnil)goto T1026;
base[2]= base[7];
goto T1025;
T1026:;
T1025:;
T1020:;
base[6]= cdr(base[6]);
goto T1001;
T1002:;
base[5]= one_plus(base[5]);
goto T1000;
T1003:;
base[3]= cdr(base[3]);
base[5]= VV[1];
goto T992;
T941:;
if((base[2])==Cnil){
goto T1040;}
base[3]= Ct;
base[4]= VV[164];
vs_top=(vs_base=base+3)+2;
Lformat();
vs_top=sup;
goto T1038;
T1040:;
base[3]= Ct;
base[4]= VV[165];
base[5]= base[0];
base[6]= base[1];
if(base[1]==Cnil){
base[7]= Cnil;
goto T1048;}
base[10]= base[1];
vs_top=(vs_base=base+10)+1;
Lpackagep();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T1051;}
base[8]= base[1];
goto T1049;
T1051:;
base[10]= coerce_to_string(base[1]);
vs_top=(vs_base=base+10)+1;
Lfind_package();
vs_top=sup;
base[8]= vs_base[0];
T1049:;
vs_top=(vs_base=base+8)+1;
Lpackage_name();
vs_top=sup;
base[7]= vs_base[0];
T1048:;
vs_top=(vs_base=base+3)+5;
Lformat();
vs_top=sup;
T1038:;
vs_base=base+3;vs_top=base+3;
vs_base[0]=Cnil;
return;
}
/* local function GOOD-PACKAGE */
static L21(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM23;
vs_reserve(VM23);
check_arg(0);
vs_top=sup;
TTL:;
base[1]= base0[0];
vs_top=(vs_base=base+1)+1;
Lsymbol_package();
vs_top=sup;
base[0]= vs_base[0];
base[2]= VV[157];
vs_top=(vs_base=base+2)+1;
Lfind_package();
vs_top=sup;
base[1]= vs_base[0];
if(!(base[0]==base[1])){
goto T1056;}
base[0]= VV[158];
vs_top=(vs_base=base+0)+1;
Lfind_package();
return;
T1056:;
base[0]= symbol_value(VV[136]);
vs_top=(vs_base=base+0)+1;
return;
}
/* local function DOC1 */
static L20(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM24;
vs_reserve(VM24);
check_arg(2);
vs_top=sup;
TTL:;
base0[2]= Ct;
base[2]= Ct;
base[3]= VV[156];
base[4]= base0[0];
base[5]= base[1];
base[6]= base[0];
vs_top=(vs_base=base+2)+5;
Lformat();
return;
}